%
O9012(QUINTE CGW SCREEN1) 
 
G310D13003P30L1
G310D13004P31L1

IF[#11NE#0]GOTO1 
#11=-1 
 
N1(ADR A)
IF[#[#30]EQ-360.]THEN
#[#30]=2147483648
GOTO2
ENDIF
IF[#[#30]NE#0]THEN#[#30]=#[#30]*10000
IF[#[#30]EQ#0]THEN#[#30]=4026531840
 
N2(ADR B)
IF[#[#31]EQ-360.]THEN
#[#31]=2147483648
GOTO3
ENDIF
IF[#[#31]NE#0]THEN#[#31]=#[#31]*10000
IF[#[#31]EQ#0]THEN#[#31]=4026531840
 
N3(ADR F)
IF[#9NE#0]THEN#9=#9*1000 
IF[#9EQ#0]THEN#9=-1
 
N4(ADR D)
IF[#7NE#0]GOTO5
#7=-1
 
N5(ADR M)
IF[#13NE#0]GOTO6 
#13=-1 
 
N6(WRITE REGISTERS)
G310R13100Q#11L2 
G310R13102Q#[#30]L4
G310R13106Q#[#31]L4
G310R13110Q#9L4
G310R13114Q#7L2
G310R13116Q#13L2 
M12
G310R13128Q1L1 
 
N10(WRITE REGISTERS) 
G310R13064P21L1
IF[#21EQ0]GOTO10 
G310R13128Q0L1 
#3962=13118
#22=#3964
#22=#22OR1 
M12
#3964=#22
 
N11(START TO BLKFIN) 
G310R13054P23L1
#23=#23MOD2
IF[#23EQ0]GOTO11 
#22=#22XOR1
#3964=#22
 
N12(INITIALIZATION)
#11=#0 
#[#30]=#0
#[#31]=#0
#9=#0
#7=#0
#13=#0 
#30=#0 
#31=#0 
 
M99
%